Show code
key_features <- tribble(
~Feature, ~`h-MDS`, ~`n-MDS`, ~`AA`,
"Bone marrow cellularity", "<25-30%", ">30%", "<25%",
"Dysplasia", "Present (≥10%)", "Present (≥10%)", "Absent/minimal",
"Blasts", "<5%", "Variable", "0%",
"PNH clones", "24-43%", "~2%", ">50%",
"Somatic mutations", "35-38%", "62-65%", "Variable",
"IST response rate", "46-49%", "21-24%", "60-70%"
)
key_features %>%
gt() %>%
tab_header(
title = "Comparison of Hypoplastic MDS with Related Disorders",
subtitle = "Key diagnostic and clinical features"
) %>%
tab_spanner(
label = "Disease Entity",
columns = c(`h-MDS`, `n-MDS`, `AA`)
) %>%
cols_align(align = "center", columns = -Feature) %>%
tab_style(
style = cell_fill(color = "#E8F4F8"),
locations = cells_body(columns = `h-MDS`)
) %>%
tab_footnote(
footnote = "IST = Immunosuppressive therapy; PNH = Paroxysmal nocturnal hemoglobinuria",
locations = cells_column_labels(columns = Feature)
)| Comparison of Hypoplastic MDS with Related Disorders | |||
| Key diagnostic and clinical features | |||
| Feature1 |
Disease Entity
|
||
|---|---|---|---|
| h-MDS | n-MDS | AA | |
| Bone marrow cellularity | <25-30% | >30% | <25% |
| Dysplasia | Present (≥10%) | Present (≥10%) | Absent/minimal |
| Blasts | <5% | Variable | 0% |
| PNH clones | 24-43% | ~2% | >50% |
| Somatic mutations | 35-38% | 62-65% | Variable |
| IST response rate | 46-49% | 21-24% | 60-70% |
| 1 IST = Immunosuppressive therapy; PNH = Paroxysmal nocturnal hemoglobinuria | |||